home *** CD-ROM | disk | FTP | other *** search
/ Deep Throat Girls 5 / Deep Throat Girls 5.iso / mac / MAC.Dir / 00032_main.ls < prev    next >
Encoding:
Text File  |  1997-02-09  |  2.8 KB  |  110 lines
  1. on exitFrame
  2.   global clear, collide, level, done, shipcast, alienblow, men, time, play, rate, movie, next, commence
  3.   if next = 1 then
  4.     set next to 0
  5.     set level to level + 1
  6.     repeat with q = 1 to 44
  7.       puppetSprite(q, 0)
  8.     end repeat
  9.     set alienblow to []
  10.     repeat with q = 1 to 33
  11.       addAt(alienblow, q, 6)
  12.     end repeat
  13.     set commence to 0
  14.     set play to 0
  15.     set time to 0
  16.     set rate to 1
  17.     set movie to level + 38
  18.     preloadMember(movie)
  19.     set the directToStage of member movie to 1
  20.     set the controller of member movie to 0
  21.     puppetTempo(10)
  22.     set the colorDepth to 32
  23.     if the colorDepth < 32 then
  24.       set the colorDepth to 16
  25.     end if
  26.     cursor(-1)
  27.     set the cursor of sprite 5 to [23, 24]
  28.     set the cursor of sprite 6 to [23, 24]
  29.     set the cursor of sprite 7 to [23, 24]
  30.     set the cursor of sprite 8 to [23, 24]
  31.     set the cursor of sprite 9 to [23, 24]
  32.     set the cursor of sprite 10 to [23, 24]
  33.     set the cursor of sprite 11 to [23, 24]
  34.     randomSound()
  35.     go(5)
  36.   end if
  37.   keyboard()
  38.   fire()
  39.   alien()
  40.   hit()
  41.   background()
  42.   if (collide = 1) and (shipcast = 1) then
  43.     set shipcast to 1 + shipcast
  44.     puppetSound(1, "EXPLODE")
  45.   end if
  46.   if (done = 1) and (clear = 0) then
  47.     repeat with q = 1 to 44
  48.       puppetSprite(q, 0)
  49.     end repeat
  50.     set men to men - 1
  51.     if men = 0 then
  52.       cursor(-1)
  53.       set the cursor of sprite 5 to [23, 24]
  54.       set the cursor of sprite 6 to [23, 24]
  55.       set the cursor of sprite 7 to [23, 24]
  56.       set the cursor of sprite 8 to [23, 24]
  57.       set the cursor of sprite 9 to [23, 24]
  58.       set the cursor of sprite 10 to [23, 24]
  59.       set the cursor of sprite 11 to [23, 24]
  60.       set the colorDepth to 32
  61.       if the colorDepth < 32 then
  62.         set the colorDepth to 16
  63.       end if
  64.       go(1)
  65.     else
  66.       go(2)
  67.     end if
  68.   end if
  69.   if clear > 0 then
  70.     set clear to 1 + clear
  71.   end if
  72.   if clear = 60 then
  73.     set level to level + 1
  74.     repeat with q = 1 to 44
  75.       puppetSprite(q, 0)
  76.     end repeat
  77.     set alienblow to []
  78.     repeat with q = 1 to 33
  79.       addAt(alienblow, q, 6)
  80.     end repeat
  81.     if done = 1 then
  82.       set men to men - 1
  83.     end if
  84.     set commence to 0
  85.     set play to 0
  86.     set time to 0
  87.     set rate to 1
  88.     set movie to level + 38
  89.     preloadMember(movie)
  90.     set the directToStage of member movie to 1
  91.     set the controller of member movie to 0
  92.     puppetTempo(10)
  93.     set the colorDepth to 32
  94.     if the colorDepth < 32 then
  95.       set the colorDepth to 16
  96.     end if
  97.     cursor(-1)
  98.     set the cursor of sprite 5 to [23, 24]
  99.     set the cursor of sprite 6 to [23, 24]
  100.     set the cursor of sprite 7 to [23, 24]
  101.     set the cursor of sprite 8 to [23, 24]
  102.     set the cursor of sprite 9 to [23, 24]
  103.     set the cursor of sprite 10 to [23, 24]
  104.     set the cursor of sprite 11 to [23, 24]
  105.     randomSound()
  106.     go(5)
  107.   end if
  108.   go(the frame)
  109. end
  110.